Câu2: viết chương trình thực hiện yêu cầu sau . a, Sử dụng biến mảng để nhập từ bàn phím điểm trung bình (ĐTB) của 50 bạn học sinh trong lớp. b,In rs màn hình (ĐTB) của học sinh . c,In ra màn hình số lớn nhất trong dãy số . Mn giúp mik vs mik cần gấp.mik c.ơn
Var a:array:[1..50] of real;
i,max:integer;
Begin
For i:=1 to 50 do
Begin
Write('Nhap so thu ',i,' = ');readln(a[i]);
End;
Write('Cac diem vua nhap la: ');
For i:=1 to 50 do
Write(a[i]:10:2);
Writeln;
max:=a[1];
For i:=2 to 50 do
if a[i]>max then max:=a[i];
Write('Diem trung binh lon nhat la ',max:10:2);
Readln
End.
Var a:array:[1..50] of real;
i:integer;
max:real;
Begin
For i:=1 to 50 do
Begin
Write('Nhap diem thu ',i,' = ');readln(a[i]);
End;
Write('Cac diem vua nhap la: ');
For i:=1 to 50 do
Write(a[i]:10:2);
writeln;
max:=a[1];
For i:=2 to 50 do
if a[i] > max then max:=a[i];
write('Diem lon nhat la ',max:10:2);
Readln
End.
Viết chương trình sử dụng biến mảng để nhập điểm trung bình môn tin học của các bạn trong lớp em.Thực hiện các yêu cầu sau - in điểm của các banh trong lớp em ra màn hình -tìm bạn có điểm trung bình cao nhất lớp em
uses crt;
var a:array[1..100]of real;
i,n:integer;
ln:real;
begin
clrscr;
readln(n);
for i:=1 to n do readln(a[i]);
for i:=1 to n do writeln(a[i]);
ln:=a[1];
for i:=1 to n do if ln<a[i] then ln:=a[i];
writeln(ln);
readln;
end.
Viết chương trình nhập điểm kiểm tra học kì môn tin cho học sinh lớp và in ra màn hình điểm tin cao nhất ( sử dụng biến mảng ) .
program DiemKiemTra;
var
i, max: integer;
diem: array[1..30] of integer;
begin
for i := 1 to 30 do
begin
writeln('Nhap diem cua hs thu ', i, ': ');
readln(diem[i]);
end;
max := diem[1];
for i := 2 to 30 do
begin
if diem[i] > max then
max := diem[i];
end;
writeln('Diem cao nhat la: ', max);
end.
Sử dụng biến mảng viết chương trình nhập từ bàn phím STT, Họ tên, Điểm trung bình của n học sinh trong lớp (5<n<10). In thông tin được nhập ra màn hình.
uses crt;
var st:array[1..10]of string;
a:array[1..10]of integer;
i,n:integer;
begin
clrscr;
readln(n);
for i:=1 to n do
readln(st[i],a[i]);
for i:=1 to n do
writeln(st[i],' ',a[i]);
readln;
end.
Viết chương trình nhập điểm kiểm tra học kì môn tin cho học sinh và in ra màn hình điểm tin cao nhất ( sử dụng biến mảng ).
program sodiemcaonhat; var i,max,n:integer; a:array [1..10000] of integer; begin write('nhap so phan muon nhap='); read(n); for i:=1 to n do begin write('diem thu',i,'='); read(a[i]); end; max:=a[1]; for i:=1 to n do begin if max < a[i] then max:=a[i]; end; write('so diem cao nhat la=',max); readln end.
program sodiemcaonhat;
var i,max,n:integer;
a:array [1..10000] of integer;
begin
write('nhap so phan muon nhap='); read(n);
for i:=1 to n do begin
write('diem thu',i,'='); read(a[i]);
end;
max:=a[1];
for i:=1 to n do begin
if max < a[i] then max:=a[i];
end;
write('so diem cao nhat la=',max);
readln
end.
Hãy mô tả thuật toán và Viết chương trình nhập điểm kiểm tra học kỳ môn Tin học cho N học sinh và in ra màn hình học sinh có điểm Tin học cao nhất. Với N và điểm kiểm tra của từng học sinh được nhập từ bàn phím (sử dụng biến mảng).
Đây là code Pascal để nhập và in điểm kiểm tra học kì môn tin cho N của từng học sinh:
program DiemKT;
var
N, i: integer;
diem: array1..100 of integer;
begin
write('Nhap so hoc sinh: ');
readln(N);
for i := 1 to N do
begin
write('Nhap diem kiem tra hoc ki cua hoc sinh thu ', i, ': ');
readln(diemi);
end;
writeln('Diem kiem tra hoc ki cua ', N, ' hoc sinh la:');
for i := 1 to N do
writeln('Hoc sinh thu ', i, ': ', diemi);
end.
Viết chương trình nhập điểm kiểm tra môn tin cho 45 học sinh và in ra màn hình (sử dụng biến mảng)
Đây là chương trình mình viết bằng ngôn ngữ C++, mình sử dụng biến mảng a đánh số từ 0 tới 45. Khi in ra màn hình thì số điểm của mỗi học sinh sẽ viết trên mỗi dòng.
CODE:
#include <iostream>
using namespace std;
int a[45];
int main()
{
for(int i=0;i<45;i++){
cin>>a[i];
}
for(int i:a){cout<<i<<endl;}
return 0;
Viết chương trình nhập điểm kiểm tra học kì môn tin cho N học sinh và in ra màn hình. Với N và điểm kiểm tra được nhập từ bàn phím.( sử dụng biến mảng)
uses crt;
var a:array[1..100]of real;
i,n:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
for i:=1 to n do
writeln('Diem cua ban thu ',i,' la: ',a[i]:4:2);
readln;
end.
a) Viết chương trình nhập điểm kiểm tra học kỳ môn tin cho N học sinh và in ra màn hình.Với N và điểm kiểm tra được nhập từ bàn phím (sử dụng biến mảng)
b) Viết chương trình nhập vào một mảng có n(n<50) phần tử và tính tổng các phần tử trong mảng đó?
a:
#include <bits/stdc++.h>
using namespace std;
double a[1000];
int n,i;
int main()
{
cin>>n;
for (i=1; i<=n; i++) cin>>a[i];
for (i=1; i<=n; i++) cout<<a[i]<<" ";
return 0;
}
b:
#include <bits/stdc++.h>
using namespace std;
long long a[50],n,i,t;
int main()
{
cin>>n;
for (i=1; i<=n; i++) cin>>a[i];
t=0;
for (i=1; i<=n; i++) t+=a[i];
cout<<t;
return 0;
}
